home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / bowling.arc / SCHEDULE.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1985-07-12  |  2.3 KB  |  81 lines
  1. 10  REM LOAD WEEKLY SCHEDULE       (SCHEDULE)
  2. 12  REM Developed by William W. Klaproth,  Moraga Ca.  94556    September 1982
  3. 20  OPEN "B:SCHEDULE.DET" AS #1 LEN = 75
  4. 30  FIELD #1, 1 AS STATUS$, 2 AS WEEK$, 2 AS SMO$, 2 AS SDY$, 68 AS PRLINE$
  5. 40  CLS
  6. 50  INPUT "Enter number of teams in league:",TM%
  7. 60  PRINT " "
  8. 70  PRINT "Load Weekly Schedule for ";
  9. 80  PRINT USING "##";TM%;
  10. 90  PRINT " Teams"
  11. 100  LN% = TM% / 2
  12. 110  PRINT "Enter lane pairs on which league will bowl.   Use mask below to align data.  Use the colon (:) to separate the lane numbers.  This line will be printed as the   header line."
  13. 120  PRINT "         ";
  14. 130  FOR I% = 1 TO LN%
  15. 140  PRINT "  ..:..";
  16. 150  NEXT I%
  17. 160  PRINT " "
  18. 170  LINE INPUT "           ",HDATA$
  19. 180  PRINT "      LANE ";HDATA$
  20. 190  PRINT "Please verify data and alignment - is it correct? Y/N"
  21. 200  INK$ = INKEY$:IF INK$ = "" THEN 200
  22. 210  IF INK$="Y" OR INK$="y" THEN 220 ELSE IF INK$="N" OR INK$="n" THEN 60 ELSE 200
  23. 220  LPRINT SPC(10);
  24. 230  LPRINT USING "##";TM%;
  25. 240  LPRINT " TEAM SCHEDULE   - ENTERED: ";DATE$
  26. 250  LPRINT " "
  27. 260  LPRINT "DATE\ LANE ";HDATA$
  28. 270  LPRINT "-----    ";
  29. 280  FOR I% = 1 TO LN%
  30. 290  LPRINT "  -----";
  31. 300  NEXT I%
  32. 310  LPRINT " "
  33. 320  RSET SMO$=MKI$(0): RSET SDY$=MKI$(99)
  34. 330  LSET PRLINE$ = HDATA$
  35. 340  PUT #1,1   'Write header data
  36. 350  REC% = 2   'Set begining of data
  37. 360  WEEK% = 1
  38. 370  CLS
  39. 380  PRINT "Enter month and day separated by a comma.  If end of file, enter '99,0'"
  40. 390  PRINT "Enter date (MM,DD) for week number ";
  41. 400  PRINT USING "##";WEEK%;
  42. 410  INPUT ": ",SMO%,SDY%
  43. 420  IF SMO% = 99 GOTO 750
  44. 430  PRINT "Enter bowling schedule for date indicated.  Use a hyphen (-) to separate teams."
  45. 440  PRINT "           ";HDATA$
  46. 450  PRINT USING "##";SMO%;
  47. 460  PRINT USING "/##";SDY%;
  48. 470  LINE INPUT "      ", LDATA$
  49. 480  PRINT " "
  50. 490  PRINT "DATE\ LANE ";HDATA$
  51. 500  PRINT "-----    ";
  52. 510  FOR I% = 1 TO LN%
  53. 520  PRINT "  -----";
  54. 530  NEXT I%
  55. 540  PRINT " "
  56. 550  PRINT USING "##";SMO%;
  57. 560  PRINT USING "/##";SDY%;
  58. 570  PRINT SPC(6);
  59. 580  PRINT LDATA$
  60. 590  PRINT " "
  61. 600  PRINT "Verify data and alignment.  Is it correct? Y/N"
  62. 610  INK$ = INKEY$:IF INK$ = "" THEN 610
  63. 620  IF INK$="Y" OR INK$="y" THEN 630 ELSE IF INK$="N" OR INK$="n" THEN 370 ELSE 610
  64. 630  LPRINT USING "##";SMO%;
  65. 640  LPRINT USING "/##";SDY%;
  66. 650  LPRINT SPC(6);
  67. 660  LPRINT LDATA$
  68. 670  LSET STATUS$ = "A"
  69. 680  RSET WEEK$ = MKI$(WEEK%)
  70. 690  RSET SMO$ = MKI$(SMO%): RSET SDY$ = MKI$(SDY%)
  71. 700  LSET PRLINE$ = LDATA$
  72. 710  PUT #1, REC%
  73. 720  REC% = REC% + 1
  74. 730  WEEK% = WEEK% + 1
  75. 740  GOTO 370
  76. 750  RSET SMO$ = MKI$(99)
  77. 760  PUT #1, REC%
  78. 770  PRINT "Schedule Creation Completed - Returning to MENU"
  79. 780  CLOSE
  80. 790  RUN "A:MENU"
  81.